function Selch=mutbga1(Selch,FieldDR,lada3,lada4,FitV)
ave_F=mean(FitV);
max_F=max(FitV);
[r c]=size(Selch);
mut_p=lada4;
for i=1:r
    if FitV(i)>=ave_F
        mut_p=lada3*(max_F-FitV(i))/(max_F-ave_F);
    end
    Selch(i,:)=mutbga(Selch(i,:),FieldDR,mut_p);
end
end
